home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / strings.e < prev    next >
Encoding:
Text File  |  1995-12-27  |  307 b   |  20 lines
  1.  
  2. -> Copyright © 1995, Guichard Damien.
  3.  
  4. -> string module
  5.  
  6. OPT MODULE
  7. OPT EXPORT  -> Export all
  8.  
  9. -> string duplication
  10. PROC clone(str:PTR TO CHAR)
  11. ENDPROC StrCopy(String(StrLen(str)),str,ALL)
  12.  
  13.  
  14. -> hash function
  15. PROC hash(key:PTR TO CHAR)
  16.   DEF value=0
  17.   WHILE key[] DO value:=value*13+key[]++
  18. ENDPROC value
  19.  
  20.